﻿Imports Microsoft.VisualBasic

Public Class ShoppingCartItem
    Public Description As String
    Public Quantity As Integer
    'Initial
    Public Sub New(ByVal Description As String, ByVal Quantity As Integer)
        Me.Description = Description
        Me.Quantity = Quantity
    End Sub
    'Get
    Public ReadOnly Property Itemline() As String
        Get
            Dim Line As String = ""
            Line = Quantity.ToString() + " " + Description
            If Quantity <= 1 Then
                Line += " costume"
            Else
                Line += " costumes"
            End If
            Return Line
        End Get
    End Property
End Class
